home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / fast backup.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  5 lines

  1. 10 OPEN1,8,15:M$="M-W":Q$=CHR$(34):FORI=3328TO4552STEP34:B$=""
  2. 20 PRINT"[147]"4552-I:FORJ=0TO33:B$=B$+CHR$(PEEK(I+J)):NEXT
  3. 30 H=INT(I/256)-10:L=IAND255:PRINT#1,M$CHR$(L)CHR$(H)Q$B$;:NEXT
  4. 40 PRINT#1,"M-E"CHR$(108)CHR$(6):SYS2304
  5.